home *** CD-ROM | disk | FTP | other *** search
/ Canon Creative 3 / Canon Creative 3 - Disc 2.iso / designe / DE.DIR / 00017.ls < prev    next >
Encoding:
Text File  |  1997-05-08  |  1.6 KB  |  15 lines
  1. on initPromo
  2.   global gSoundPath, gTopicsHiliteCastList, gTopicsHiliteRectList, gSamplesHiliteCastList, gSamplesHiliteRectList, gAddonsHiliteCastList, gAddonsHiliteRectList, gSoundOn
  3.   set gSoundPath to the pathName & "SOUND:"
  4.   set gSoundOn to 1
  5.   set the volume of sound 1 to 255
  6.   set the volume of sound 2 to 255
  7.   setAmbientSound(#null)
  8.   set gTopicsHiliteCastList to [827, 829, 831, 833, 835, 837, 839, 841]
  9.   set gTopicsHiliteRectList to [rect(570, 387, 640, 421), rect(570, 336, 640, 363), rect(570, 290, 640, 311), rect(570, 241, 640, 269), rect(570, 190, 640, 221), rect(570, 139, 640, 168), rect(570, 90, 640, 118), rect(570, 41, 640, 67)]
  10.   set gSamplesHiliteCastList to [875, 877, 879, 881, 883, 885, 887, 889, 891, 893, 895]
  11.   set gSamplesHiliteRectList to [rect(543, 409, 640, 428), rect(543, 374, 640, 392), rect(543, 337, 640, 355), rect(543, 301, 640, 321), rect(543, 265, 640, 284), rect(543, 229, 640, 249), rect(543, 194, 640, 221), rect(543, 156, 640, 174), rect(543, 121, 640, 139), rect(543, 85, 640, 104), rect(542, 42, 640, 66)]
  12.   set gAddonsHiliteCastList to [731, 733, 735, 737, 739, 741, 743, 745, 747, 749, 751, 753, 755, 757, 759, 761]
  13.   set gAddonsHiliteRectList to [rect(489, 409, 640, 427), rect(489, 385, 640, 403), rect(489, 359, 640, 376), rect(489, 336, 640, 355), rect(489, 311, 640, 329), rect(489, 288, 640, 305), rect(489, 263, 640, 284), rect(489, 239, 640, 258), rect(489, 215, 640, 234), rect(489, 191, 640, 211), rect(489, 167, 640, 186), rect(489, 143, 640, 163), rect(489, 119, 640, 139), rect(489, 97, 640, 113), rect(489, 72, 640, 89), rect(489, 45, 640, 63)]
  14. end
  15.